home *** CD-ROM | disk | FTP | other *** search
/ Family Fun / Family Fun.iso / joke1 / jokes_c / crconv.bak < prev    next >
Text File  |  1992-01-07  |  238b  |  14 lines
  1. {$M 16384,0,16384}
  2. uses dos;
  3. var
  4.  sr: searchrec;
  5.  s: string;
  6.  f: text;
  7. begin;
  8.  findfirst('*.*',0,sr);
  9.  while doserror=0 do begin;
  10.   exec('COMMAND.COM /C','TYPE '+sr.name+' | FILT.EXE > '+sr.name);
  11.   findnext(sr);
  12.  end;
  13. end.
  14.